home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 60.zip
/
BS1 part 60
/
Prof. Calc d1.adf
/
Prolog.ps
< prev
next >
Wrap
Text File
|
1993-03-23
|
6KB
|
230 lines
#
/uniqueid 0 def
/amigavec [
8#055 /hyphen
8#200 /ellipsis
8#201 /endash
8#202 /fi
8#203 /fl
8#204 /daggerdbl
8#205 /perthousand
8#206 /florin
8#207 /fraction
8#210 /lslash
8#211 /Lslash
8#212 /quotesinglbase
8#213 /quotedblbase
8#214 /scaron
8#215 /zcaron
8#216 /Scaron
8#217 /Zcaron
8#220 /dotlessi
8#221 /grave
8#222 /acute
8#223 /circumflex
8#224 /tilde
8#225 /macron
8#226 /breve
8#227 /dotaccent
8#230 /.notdef %%--------- RESERVED FOR EXPANSION --------
8#231 /.notdef
8#232 /ring
8#233 /cedilla
8#234 /periodcentered
8#235 /hungarumlaut
8#236 /ogonek
8#237 /caron
8#240 /.notdef %% ALT i
8#241 /exclamdown %% ALT 4
8#242 /cent %% ALT L
8#243 /sterling %% ALT l
8#244 /currency %% ALT y
8#245 /yen %% ALT Y
8#246 /bar %% ALT I
8#247 /section %% ALT S
8#250 /dieresis %% ALT K + space
8#251 /copyright %% ALT E, e
8#252 /ordfeminine %% ALT V, v
8#253 /guillemotleft %% ALT 9
8#254 /logicalnot %% ALT Z
8#255 /endash %% ALT n
8#256 /registered %% ALT R, r
8#257 /macron %% ALT N
8#260 /degree %% ALT W, w
8#261 /plusminus %% ALT z
8#262 /quotedblright %% ALT 2
8#263 /dagger %% ALT 3
8#264 /quotesingle %% ALT F + space
8#265 /mu %% ALT U, u
8#266 /paragraph %% ALT P, p
8#267 /bullet %% ALT 8
8#270 /emdash %% ALT m
8#271 /quotedblleft %% ALT 1
8#272 /ordmasculine %% ALT B, b
8#273 /guillemotright %% ALT 0
8#274 /onequarter %% ALT 5
8#275 /onehalf %% ALT 6
8#276 /threequarters %% ALT 7
8#277 /questiondown %% ALT M
8#300 /Agrave %% ALT G + A
8#301 /Aacute %% ALT F + A
8#302 /Acircumflex %% ALT H + A
8#303 /Atilde %% ALT J + A
8#304 /Adieresis %% ALT K + A
8#305 /Aring %% ALT Q
8#306 /AE %% ALT A
8#307 /Ccedilla %% ALT C, c
8#310 /Egrave %% ALT G + E
8#311 /Eacute %% ALT F + E
8#312 /Ecircumflex %% ALT H + E
8#313 /Edieresis %% ALT K + E
8#314 /Igrave %% ALT G + I
8#315 /Iacute %% ALT F + I
8#316 /Icircumflex %% ALT H + I
8#317 /Idieresis %% ALT K + I
8#320 /Eth %% ALT D
8#321 /Ntilde %% ALT J + N
8#322 /Ograve %% ALT G + N
8#323 /Oacute %% ALT F + N
8#324 /Ocircumflex %% ALT H + N
8#325 /Otilde %% ALT J + N
8#326 /Odieresis %% ALT K + N
8#327 /multiply %% ALT x
8#330 /Oslash %% ALT O
8#331 /Ugrave %% ALT G + U
8#332 /Uacute %% ALT F + U
8#333 /Ucircumflex %% ALT H + U
8#334 /Udieresis %% ALT K + U
8#335 /Yacute %% ALT F + Y
8#336 /Thorn %% ALT T
8#337 /germandbls %% ALT S
8#340 /agrave %% ALT G + a
8#341 /aacute %% ALT F + a
8#342 /acircumflex %% ALT H + a
8#343 /atilde %% ALT J + a
8#344 /adieresis %% ALT K + a
8#345 /aring %% ALT q
8#346 /ae %% ALT a
8#347 /ccedilla %% ALT c
8#350 /egrave %% ALT G + e
8#351 /eacute %% ALT F + e
8#352 /ecircumflex %% ALT H + e
8#353 /edieresis %% ALT K + e
8#354 /igrave %% ALT G + i
8#355 /iacute %% ALT F + i
8#356 /icircumflex %% ALT H + i
8#357 /idieresis %% ALT K + i
8#360 /eth %% ALT d
8#361 /ntilde %% ALT J + n
8#362 /ograve %% ALT G + o
8#363 /oacute %% ALT F + o
8#364 /ocircumflex %% ALT H + o
8#365 /otilde %% ALT J + o
8#366 /odieresis %% ALT K + o
8#367 /divide %% ALT X
8#370 /oslash %% ALT o
8#371 /ugrave %% ALT G + u
8#372 /uacute %% ALT F + u
8#373 /ucircumflex %% ALT H + u
8#374 /udieresis %% ALT K + u
8#375 /yacute %% ALT F + y
8#376 /thorn %% ALT t
8#377 /ydieresis %% ALT K + y
] def
/bdef {bind def} bind def
/ldef {load def} bdef
/n /newpath ldef
/m2 /moveto ldef
/l2 /lineto ldef
/c2 /curveto ldef
/rm /rmoveto ldef
/rl /rlineto ldef
/gs /gsave ldef
/gr /grestore ldef
/g /setgray ldef
/s /stroke ldef
/mvx {
currentpoint exch pop m2
} bdef
/mvy {
currentpoint pop exch m2
} bdef
/ln { % x y ln matrix
matrix currentmatrix 3 1 roll translate 0 0 m2
}bdef
/ln2 {
setmatrix
} bdef
/wrd { % x (s) wrd -
show mvx
} bdef
/concatprocs {
3 dict begin
/proc2 exch cvlit def
/proc1 exch cvlit def
/newproc proc1 length proc2 length add array def
newproc 0 proc1 putinterval
newproc proc1 length proc2 putinterval
newproc cvx
end
} bdef
/dontCopyID false def
/copyfont {
{ exch dup /FID ne
{
dup /UniqueID eq dontCopyID and
{pop pop}
{
dup /Encoding eq
{ exch dup length array copy outfontdict 3 1 roll put}
{ exch outfontdict 3 1 roll put}
ifelse
}
ifelse
}
{ pop pop}
ifelse
} forall
} bdef
/recode {
copyfont dup dup
outfontdict /FontName 3 -1 roll put
amigavec aload pop
amigavec length 2 idiv
{outfontdict /Encoding get 3 1 roll put} repeat
} bdef
/defamigafont {
/fntsclmtx [0 0 0 0 0 0] def
exch
dup fntsclmtx exch 0 exch put
fntsclmtx exch 3 exch put
findfont fntsclmtx makefont setfont
} bdef
/deffont {
3 -1 roll
{
dup dup length dup 5 add string /newnamestr exch def
exch newnamestr copy pop newnamestr exch (Amiga) putinterval
newnamestr cvn dup FontDirectory exch known
{exch pop}
{
exch cvn findfont
dup maxlength 2 add dict /outfontdict exch def
/dontCopyID false def recode
outfontdict definefont pop
}
ifelse
}
{ cvn }
ifelse
defamigafont
} bdef